VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "GCasts"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Function IAnimation(obj As IAnimation) As IAnimation
    Set IAnimation = obj
End Function

Public Function IFilter(obj As IFilter) As IFilter
    Set IFilter = obj
End Function

Function ISortHelper(obj As ISortHelper) As ISortHelper
    Set ISortHelper = obj
End Function

Function ISubclass(obj As ISubclass) As ISubclass
    Set ISubclass = obj
End Function

Function IUseFile(obj As IUseFile) As IUseFile
    Set IUseFile = obj
End Function

Function IUseFolder(obj As IUseFolder) As IUseFolder
    Set IUseFolder = obj
End Function

Function IUseRegItems(obj As IUseRegItems) As IUseRegItems
    Set IUseRegItems = obj
End Function

Function IVariantWalker(obj As IVariantWalker) As IVariantWalker
    Set IVariantWalker = obj
End Function

Function IVBContextMenu(obj As IVBContextMenu) As IVBContextMenu
    Set IVBContextMenu = obj
End Function

Function IVBContextMenu2(obj As IVBContextMenu2) As IVBContextMenu2
    Set IVBContextMenu2 = obj
End Function

Function IVBEnumIDList(obj As IVBEnumIDList) As IVBEnumIDList
    Set IVBEnumIDList = obj
End Function

Function IVBEnumVARIANT(obj As IVBEnumVARIANT) As IVBEnumVARIANT
    Set IVBEnumVARIANT = obj
End Function

Function IVBExtractIcon(obj As IVBExtractIcon) As IVBExtractIcon
    Set IVBExtractIcon = obj
End Function

Function IVBFileViewer(obj As IVBFileViewer) As IVBFileViewer
    Set IVBFileViewer = obj
End Function

Function IVBFileViewerSite(obj As IVBFileViewerSite) As IVBFileViewerSite
    Set IVBFileViewerSite = obj
End Function

Function IVBMalloc(obj As IVBMalloc) As IVBMalloc
    Set IVBMalloc = obj
End Function

Function IVBPersist(obj As IVBPersist) As IVBPersist
    Set IVBPersist = obj
End Function

Function IVBPersistFile(obj As IVBPersistFile) As IVBPersistFile
    Set IVBPersistFile = obj
End Function

Function IVBShellFolder(obj As IVBShellFolder) As IVBShellFolder
    Set IVBShellFolder = obj
End Function

Function IVBShellIcon(obj As IVBShellIcon) As IVBShellIcon
    Set IVBShellIcon = obj
End Function

Function IWindowsHelper(obj As IWindowsHelper) As IWindowsHelper
    Set IWindowsHelper = obj
End Function

